home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sds.d64 / simple sprite 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  48 lines
  1. 10 REM *** A SIMPLE SPRITE ***
  2. 20 :
  3. 30 REM *** SET UP SCREEN FEEDBACK ***
  4. 40 :
  5. 50 PRINT"[147]THINKING!!";
  6. 60 :
  7. 70 REM *** LOAD SPRITE DATA ***
  8. 80 :
  9. 90 FOR N = 896 TO 958
  10. 100 READ SP
  11. 110 POKE N,SP
  12. 120 NEXT N
  13. 130 :
  14. 140 REM *** SET UP SPRITE CONTROLS ***
  15. 150 :
  16. 160 PRINT"[147]"      : REM CLEAR SCREEN
  17. 170 POKE 2040,14  : REM POINT TO DATA
  18. 180 VIC=53248     : REM GRAPHICS CHIP
  19. 190 POKE VIC,170  : REM HORIZONTAL POS
  20. 200 POKE VIC+1,120: REM VERTICAL POS
  21. 210 POKE VIC+39,5 : REM COLOR IT GREEN
  22. 220 POKE VIC+21,1 : REM SPRITE #0 ON
  23. 230 :
  24. 240 REM ** WAIT FOR KEY PRESS TO END **
  25. 250 :
  26. 260 GET KP$
  27. 270 IF KP$="" THEN 260
  28. 280 :
  29. 290 REM *** RESET SPRITE CONTROLS ***
  30. 300 :
  31. 310 POKE VIC+21,0   :REM REVERSE THE
  32. 320 POKE VIC+39,0   :REM ORDER USED TO
  33. 330 POKE VIC+1,0    :REM SET THE SPRITE
  34. 340 POKE VIC,0      :REM CONTROLS
  35. 350 :
  36. 360 END
  37. 400 DATA   0,  60,   0,   0,  36,   0
  38. 410 DATA   0, 102,  24,   0, 102,  56
  39. 420 DATA   0,  36,  56,   0,  60,  16
  40. 430 DATA   0,  24,  16,   0,  24,  16
  41. 440 DATA  15, 255, 240,   8, 126,   0
  42. 450 DATA   8, 126,   0,   8,  24,   0
  43. 460 DATA  28,  24,   0,  28,  24,   0
  44. 470 DATA  24,  60,   0,   0,  60,   0
  45. 480 DATA   0,  36,   0,   0,  36,   0
  46. 490 DATA   0,  36,   0,   3, 231, 192
  47. 500 DATA   3, 231, 192
  48.